(let ((arglen (vector-length command-line-arguments)))
   (do ((i 0 (+ i 1)))
       ((= i arglen))
       (let ((obj (eval (read (open-input-file (vector-ref command-line-arguments 0))))))
          (write obj)
          (display "\n") )))

